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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED. 

rns fe neck IS FURNISHED UNDER A LICENSE AND MAY BE 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bCoNee AND WITH Mi, 3 
E AVAI 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 

TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

OORPORAT bn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: 


OPCOM 


i ABSTRACT: 


This module contains the logic to start and initialize OPCOM. 


i Environment: 


VAX/VMS operating system. 


i author: 


Steven T. Jeffreys 


i Creation date: 


March 10, 1981 


i Revision history: 


V03-009 CWH3169 CW Hobbs 5-May-1984 
“She pass for cluster-wide OPCOM 


- . - we come up, ask for ACKs {ree any nodes that we can 


- ote *svI$  NODENAME rathen than SCSNODE so that a useful 
length i§ returned 
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. ' 

; 3 i v03-003 CWH3003 CW Hobbs 14-Apr-1984 
; Change SCSNODE syi \tens to the single item SYI$_SCSNODE. 

; ¢ i VO3-002 CwH3002 CW Hobbs 16-Sep-1983 
: er Use jacket routines lor VM calls 

: 65 i v03-001 CuH3001 CW Hobbs 30-Jul-1983 
; $8 i Various and sundry things to make OPCOM distributed 

: a4 across the cluster. 

: 44 i v02-002 $TJ0162 Steven T. Jeffreys, 08-F eb-1982 

: 4 Make Te Gaiennen to lbrary routines use general addressing mode. 
ae. i 

5 ig ie 

: 74 

: Le BEGIN ! Start of OPCOMMAIN 

; i] LIBRARY 'SYSSLIBRARY:L1B.L32"; 

: A LIBRARY ‘LIB$:OPCOMLIB'; 

: 80 FORWARD ROUTINE 

; 6«C«#BI COM_INIT : NOVALUE, ! Initialization routine 

; Ht KERNEC_SETUP; ! Kernel mode setup 

; BS BUILTIN 

3; 8 INSQUE, ! Insert entry onto a queue 
3; 8 REMQUE ; i Remove entry from a queue 


GmiNivesest 


eet 


OPC OMINIT 
vOL+000 
; GLOBAL ROUTINE OPCOM_INIT : NOVALUE = 


ee 
} Functional description: 


correct functioning. 
Input: 

None. 

Implicit Input: 


Output: 

None. 
Implict output: 
None. 
Side effects: 


Routine value: 


> ss ss ss 
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EXTERNAL ROUTINE 
CLUSMSG_ACK_PLEASE : NOVALUE, 
CLUSUTIC_CORF IGURE 
SUTIL-INIT  : NOVALUE, 
CLUSUTIL-“NODE_MESSAGE : NOVALUE, 
NABLE_HANDLER: NOVALUE, 
LOGFILE HANDLER NOVALUE 
SHARE_IRIT_OPER_NAME : NOVALUE, 
IME _ST : NOVALUE; 


EXTERNAL LITER. 


1 
1 
1 
1 
1 
1 
1 
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1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MIN SCOPE, 
Pp 
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This routine will start OPCOM and perform 
the necesary initialization to ensure OPCOM's 


all of 


The operator mailbox exists and is available. 
The process has CHMKRNL privilege. 


The operator logfile will be created on the system disk. 


SS$_NOPRIV - The process does not have CHKRNL privilege. 
SS$_DEVALLOC - The operator mailbox already has a Listener. 
$S$_NORMAL - OPCOM successfully completed its shutdown sequence. 


Start of OPCOM_INIT 


Request an ACK from another node 
Cluster cont guration 

Cluster initializations 

Tell about cluster initializations 
nable operator terminal 

Initialize syetes logfile 
Initialize the operator name vector 
Issue periodic timestamp 


are structure type 
Min scope value 
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1 
! Assign a channel to the operator mailbox, _MBA2:. The mailbox is 

! defined by the a module DEVICEDAT, and fas an initial reference 

' count of 1. This means that no one can allocate the device, no one 

! can delete it, and that once we assign a ¢hennes to it, the reference 
: count had better be 2. If the SASSIGN fails, then give up. 


et (STATUS = SASSIGN (CHAN=OPER_MBX_CHAN, DEVNAM=OPER_MBX_NAME) ) 
: $signal_stop (.STATUS); 
' 
' 
‘ 
' 
] 
' 


i We now have a channel to the qperater mailbox. Now we must go into kernel 
! mode to do some further checking. We must puerenty that we have CHMKRNL 
i e, and that the reference count on the gper ater mailbox is equal to 


' privile 
: 2. nite in kernel mode, also set the OPR bit in the default operator UCB, 


: «145 144 SY1_SWPOUTPGCNT : LONG : 
: 146 145 GLOBAL STATUS : BITVECTOR, ! Global status flags : 
3 (14 146 OCD_VECTOR : VECTOR, ! Pointers to OCD's : 
: 108 14 $cB te : 139 bo ' Start of SCB table ; 
: 14 148 WAIT_DELTA : $bblock, i Quadword AST wait time : 
; 150 14 OPAO-ENABLE_MSG : $bblock, ' Descriptor of enable message : 
3; 151 150 LOGFILE _MSG : Sbblock, ! Descriptor of INIT message ; 
cs ; 1 OPER_MBR_ : WORD, ! Channel to _ : : 
. 4 1 OPER" MBX : $bblock, i Quadword descriptor of '_MBA2:" | ; 
3; 1546 1 LCL_RODERAME : VECTOR ! Name of Local node (DECnét or VAXcluster) : 
: 155 154 LCL=NOD : $ref_bblock, i Local node block | : 
ee $ 155 LCL_CSID : LONG ! CSID for local node : 
: 1 1 : NOD “HEAD : VECTOR, i Head of node queue : 
; 158 1 LOGFILE_FAB : $ref_bblock, ' RMS control structure : 
; 159 1 8 LOGFILE _RAB : Sref_bblock, ! RMS control structure : 
; 160 1 LOGF ILE_OPEN : LONG; ! Global boolean : 
: 18) 181 5 LOCAL 
: 18 196 10S8 : $bblock (8), ! 1/0 status block ; 
; 1646 16 SIZE : LONG, ' Size of data structure : 
; 165 1 TYPE : LONG. ! Vype of data structure : 
3 108 1 BLOCK : $ref_bblock, ! VM block : 
s 16 1 $cB : Sref_bblock, ! $CB block : 
3 198 1 PTR : LONG, 2 
3 199 ; STATUS ONG; : 
$171 1 OWN F 
3 \7¢ 1 NODENAME _BUF : VECTOR C16, BYTE) : 
3; V7 1 NODENAME DESC : VECTOR ~ LONG {NITIAL (0, NODENAME BUF) : 
> 17% 1 TRANL OG BESC : VECTOR C2. LONG] INITIAL (16, NODENAME_BUFS, : 
3s 175 1 SYI_ITEAS : VECTOR LONG] PRESET ( : 
: 176 1 0] = (SYI$_NODENAME*16 OR 16), : 
3 77 1 ij = NODENAME _ UF : 
; 178 1 ¢] = NODENARE pest (0), : 
; 179 1 = (SYI$_SWPOUTPGCNT“16 OR 4), 3 
; 180 1 4] = gV1 SGPOUTPGCHT, : 
; 181 1 5] = : 
: 1 : 1 6] = 05; : 
x 2 1 : 
. 3 1 2 
3 13? A : 
: : 
F} 189 1 ° 
; 190 1 : 
; «6191 1 . 
3 136 1 : 
; #19 1 

s ¥ 1 

. | 1 

. 9 1 

s 1 

s 1 1 

. | ’ 

§ 5 2 


SSSLESRAN LSSSVEALAN ALS SSVSARAN-SSSISAF 


LSSSLESE 


IF NOT (STATUS = SCMKRNL (ROUTIN=KERNEL_SETUP)) 


4 
N 
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THEN | 


Wn 


i Something is wrong. The only og hat we can tolerate is the 

! nonexistence of on: whi $s indicated by a status of SS$_NOSUCHDEV. 
i Any other error fond tion will force us to abort. 

if NoT (.STATUS EQL SS$_NOSUCHDEV) 


Ssignal_stop (.STATUS); 


' 
} Initialize the vector of operator names 
SHARE_INIT_OPER_NAME (); 


' 
: Build the look-aside Lists for all data structures. 


and ‘'::' 


: 

: 5 

: 19 $ 

3 1 + 

3 1 1 

3 1 \¢ 

3; 2146 1 

.. ave 14 

3 1 15 

3 1 1 

38 , 

; 13 INCR J FROM MIN_DS_TYPE TO MAX_DS_TYPE DO 

; : 1 SCB = .SCB_TABLE [.J-1); ! Get the SCB address 

3 § SIZE = .SCB CSCB_W_SIZE); ' Get data structure size 
3 4 TYPE = .J; ! . data structure type 
: 225 4 INCR I FROM 1 TO .SCB CSCB_W_LAL_COUNT] DO 

3 $ 5 ? BEGIN 

: 228 ; 4 i Allocate a block of memory, initialize it, and 

3 9 3 ? put it on the appropriate look-aside List. 

; 231 0 5 iF NOT (STATUS = OPCSGET_VM (SIZE, BLOCK)) 

3 ¢ 1 4 THEN 

; 23 0 § 4 $signal_stop (.STATUS); 

$ 34 4 CHSFILL (0, .SIZE, .BLOCK); ' Zero the block 

3; 235 4 4 BLOCK CHDR._L_ LINK) = BLOCK HOR_L_FLINK; 

: 5 4 BLOCK LHDR_L_BLINK) = BLOCK CHDR_L_FLINKI; 

3 $ 4 BLOCK WOR We size = .SIZE; T Set block size 

3 8 4 BLOCK WOR 6. TYPE = , TYPE; ! Set block type 

3 9 8 4 BLOCK CHDR V_LAL) = TRUE; ! Mark this as an LAL block 
; 40 39 4 INSQUE (BLOCR CHDR_L_FLINK], SCB CSCB_L_FLINK)); 

: 24 41 END; 

3 rk m4 

3 246 e : 

F 22 rt} : Do a SGETSYI to get information about the current system 

: re] $8 if NOT (STATUS = S$GETSYI (ITMLST=SYI_ITEMS)) 

; 248 4 THEN 

3 rH rt $signal_stop (.STATUS); 

: 251 50 i If the SCS nodename is null, try to translate SYSSNODE to find the DECnet name. Remove the ‘"_ 
3 26 3} } from the translated name. 

; 254 26 if .NODENAME_DESC (0) EQL 0 

3; 255 23 ne SOOO 

; 3$ 32 IF NOT (STATUS = S$TRNLOG (LOGNAM=ZASCID ‘SYSS$NODE', RSLLEN=TRANLOG_DESC, RSLBUF=TRANLOG_DESC, DSBMSK=6)) 
; 258 0257 3 THEN 
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gnats top (. sree’? 


$si 
Nea" US EQL SS$_NORMA ! If we translated, remove the underscores and colons 
BEGIN 
PTR = CHSFIND_NOT_CH (.TRANLOG_DESC ([OJ, .TRANLOG_DESC (1), %C '_'); 
IF .PTR NEQ 0 
THE 
BEGIN 
TRANLOG_DESC £0) = ,TRANLOG_DESC [0] = (.PTR = .TRANLOG_DESC [1)); 
|< tata 1] = .PTR; 
PTR = CHSF IND _CH (. TRANLOG_DESC CO], .TRANLOG_DESC [1], %C ':") 
es NEQ 
TRANLOG_ DESC [0] = .PTR - Tact DESC (1); 
NODENAME _DESC 9 = ,TRANLOG_DESC 
NODENAME_DESC [1] = .TRANLOG_DESC 
END; ; 


' 
Set the global message 


if .NODENAME_DESC [0] NEQ 0 
THEN 


BEGIN 
LCL_NODENAME 9] = 


» NODENAME _DESC Bate 
Lot NODENAME 1]; 


J = 
J = .NODENAME DESC 


i Perform cluster initialization functions necessary before can enable 
operators. 


CLUSUTIL_INIT (); 


' 

i Set up _OPAO: as the default operator. This is done by calling the enable handler with a the 
sdaress™ of a buffer descriptor that points to a predefined enable message. 

OPRENABLE_HANDLER (OPAO_ENABLE_MSG) ; 

' 

i Open the Log file. This is done by calling the INIT message handler with the address of a buffer 
: descriptor that points to a predefined INIT message. Set logging enabled. 


Logr ive HANDLER (LOGFILE _MSG) 
GLOBAL_STATUS CGBLSTS_K “CLOGGING. ENABLED] = TRUE; 


i Configure the nodes into the cluster database, and notify any 
operators. This should be done after OPAO and the logfile are ready. 


if _;,SLOBAL_STATUS CGBLSTS_K_IN_VAXc luster] 


BEGIN 
CLUSUTIL Wooe E_MESSAGE ( bel -NOD, OPCS_NODE_INIT, FALSE); ' Tell them we have initialized the local no 
. GURE ( Now bring in everybody ei se. true if anyon 


IF CLUSUT ONE! 
THEN has been added to the clu 
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BEGIN 


—— 4 _as 


MEW“ OODNOUSWNOOONO 


NOD : SREF BBL OCK: 
NOD = .NOD_HEAD : ! Start at the head of the node queue 
ue «NOD NEQ NOD_HEAD [0] ! While not pointing at the head 
BEGIN 
4 ce CNOD_L_NODE_CSID] NEQ .LCL_CSID ! If not the local node 
CLUSMSG_ACK_PLEASE (.NOD); ' Request an ack 
ms «NOD CNODIL_FLINKI; ! Move to the next node 


i Set the operator mailbox protection to 
allow OWNER reads and writes. 


IF NOT (STATUS = $Q10 (FUNC = (10$_SETMODE OR I0$M_SETPROT), 
CHAN = OPER MBX, CHAN, 


ETE IEEE IOS Ieee eee eee reer rerererererererervererererrrere Tere re Tre Te rete 
WANA AIA AIA AIAN 
FUWnww 
SSMS 
vuvuvv 


= PIPINICAPININPININININININI ANINIMNIPUINI WANN PINIA ES UIT SS BB 
= 


3 10SB = I0S 
O35 P2 = READ_WRITE 
03 )») 
033, THEN 
tH $signal_stop (.STATUS); 
1 340 
rx: 0341 ! 
berg ! Check the function status. 
see 034 ! 
45 0344 IF NOT (STATUS = .10SB [0,0,16,0]) 
323 b3ce a $ ignal_stop (.STATUS) 
signal_stop (. 3 
348 0347 
349 0348 ! 
350 0349 ! Set the timer ast for the first time stamp message. 
3) baat Also set the associated GLOBAL_STATUS bits. 
2 Bs26 GLOBAL_STATUS CGBLSTS_K_BUSY] = TRUE; 
54 035 GLOBAL_STATUS CGBLSTS_K TIMESTAMP_PENDING] = FALSE; 
$e, Beee IF a (STATUS = SSETIMR (EFN = EFN_K_TIME_STAMP, DAYTIM = WAIT_DELTA, ASTADR = TIME_STAMP)) 
57 0356 $signal_stop (.STATUS); 
58 0357 
59 0358 END; ! End of OPCOM_INIT 


-TITLE OPCSOPCOMINIT 
-IDENT \V04-000\ 


~PSECT SPLITS,NOWRT ,NOEXE ,2 


45 44 4F 4E 24 53 59 53 00000 P.AAB: .ASCII \SYS$N0 E\ : 
010E0008 00008 P.AAA: .LONG 1769472 : 
00000000° 0000C -ADDRESS P.AAB : 
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~PSECT SOWNS.NOEXE ,2 


N 6 | 
OPCSOPCOMINIT 16- Se 4 AX-11 Bliss-32 V 
90-000 14- 730071382 9}: 36: $ OPCOM. SRC IOPCOM! 
00000 NODENAME _BUF : 
“BLKB 16 
00000000 00010 NODENAME_ DESC: | 


TLON ; 
0000000' 00014 .ADDRESS NODENAME_BUF : 
taint § $bOi8 TRANLOG DESC: no 


6 
' oots ,ADDRESS NODENAME _BUF : 
20 SYI_ITEMS: 


.LONG 282656784 
“ADDRESS N NAME _BUF , NODENAME _DESC 


0 
1 
00000000° 9 
0 
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00000000 


TRN CLUSMSG_ACK 


S 
TRN CLUSUTIC_CON 


ASE 
URE 
v page ee 
NAME 
~K 

| 


XTRN ey eta 
XTRN GLOBAL Sy ATU. ocp vecton 
XTRN SCB TABLE. WAIT_DECTA 

-EXTRN OPAO_E 
eEXTRN LOG CrIte Rca OPER_MBX_CHAN 
-EXTRN OPER_MBR_NAM LCC NOBENAME 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 .ENTRY OFCOM, INIT. Save R2,R3,R4,R5,R6,R7.RB.R9.- ; 0087 
SP 
CLRO ) 0190 
PUSHAB OPER _MBX_CHAN 
PUSHAB OPER NAME 
CALLS #4, SYSSKSSIGN 
MOVL RO. STATUS 
BLBC CT ATUS. 1 
CLRL = =( SP) 
KERNEL ETUP 
. SYSSCMKRNL 
STAT S 


000000006 
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OPCSOPCOMINIT 18-5 ep-1 AX-11 Bliss-32 V4.0-742 Page 9 
vee 1 30071382 9}: 36: " OPCOM. SRCJOPCOMINI .B32;1 . | 
G F fF 3B 2$: CALL » SHARE intr peer NAME g 14 
T.] oooopoone St a cS 49 SUBL Hl. ; WMIN_BS_T : $315 
54 ooooscr2s po 4A 3$: OVL  SCB TABLE=4CJJ, SCB : 0 1 
08 AE $6 ¢ 0 MOVZWL (SCB) : 4 
E p 4 OVL Jeglt TY YES : 9 
B 02 AG ¢ f MOV ZUL ($B), R11 + 0224 
34 rf D BRB i, ; 
04 AE OF F 4$ PUSHAB BLOCK t 0230 
C AE OOF 62 PUSHAB SIZE ; 
00006 cf F 6 CALLS #2, OPCSGET_VM ; 
9 D A OVL R STATUS 3 
c8 E 9060 BLBC STATUS, 1$ : 
04 AE BO 0070 MOVL. BLOCK, R7 + 0233 
08 AE 00 6E 09 C 0074 MOVCS #0, ($P), #0, SIZE, (R7) : 
67 7 D0 0078 MOVL _R7, (R7) + 0234 
04 A? 7 0 0007 MOVL 7, 4(R7) + 0235 
08 A7 08 AE BO 0008 MOVW SIZE, 8(R7) : 0236 
OA A? 6E 20 0008 MOVB. TYPE. 10(R7) : 0237 
28 «AT 01 8 00088 BISB2 #1, 40(R7) : 0238 
50 08 Ab YE 0008F MOVAB 8(R6), RO : 0239 
60 67 0 00093 INSQUE (R7), (RO) : 
C5 5A 5B F3 00096 5$ AOBLEQ R11, I, 4$ ; 0224 
AB 58 000000006 BF F O009A é$ AOBLEQ #MAX_DS_TYPE, J, 38 + 0219 
7E 7C QOOA2 CLRQ =-(SP) : 0246 
7E D4 OOOA4 CLRL = (SP) ; 
0000" CF 9F DO0A6 PUSHAB SYI_ITEMS : 
E 7C QOOAA CLRQ = = (SP) ; 
7 D4 OOOAC CLRL -(SP) Z 
000000006 98 of 4 sisted a oe STATUS $ 
20 59 £9 00088 BLBC —-« ST TATUS. F 
0000' CF D5 000BB TSTL § NODENAME Esc : 0253 
65 12 OOOBF BNEQ 13$ Z 
06 pp 00C1 PUSHL : 0256 
—e 7c 200C3 CLRQ. = =(SP) : 
0000" CF 9F 000C PUSHAB TRANLOG_DESC : 
B83: EF 3 $885 USAR paggoe=oese : 
000000006 99 i F a001 CALLS "6, eyssTteats : 
; : 9008 7$: BLBS STATUS. 8 ; | 
0109 DF BRW : 
01 59 D1 6 E1 8$: CMPL STATUS, #1 : 0259 
40 12 O00E4 BNEQ =} : 
0000" oF 0000" CF SF ; i E6 SKPC #95, TRANLOG_DESC, @TRANLOG_DESC+4 + 0262 
D Fi CLRL RI : 
1 =O F3 9$: TSTL PTR : 0263 
10 1 F BEQL 108 ; 
50 000° CF 51 F SUBL 3 PTR, TRANLOG_DESC+4, RO > 0266 
00' (CF 0 ¢ F ADDL2 RO, TRANLOG DESC : 
9 ' CF 1 MOVL PTR, TRANLOG. DESC +4 : 0267 
0000" OF o* & 5 , ! ; 108: aad #38: TRANLOG~ DESC, @TRANLOG_DESC+4 ; 0269 
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OPCSOPCOMINIT 1b-5¢ -1984 01:32: AX-11 Bliss-32 V4.0-742 Page 10. 
vised 1 =300 71382 93:38:28 OPCOM. SRCIOPCOMINI .B32:1 . d | 
j 
i DS Oris 118: FSIt PTR : 0270| im 
a 13 11 BEQL 12$ : | ; mM 
0000" CF 51 a ¢ 11 SUBL3 TRANLOG_DESC+4, PTR, TRANLOG_DESC : 0272 | : #4 
0000' cr ' ¢F 11F 138 MOVG = TRANLOG-DESC, NODENAME_DESC ; 0273 | ; mM 
0 ' i p 6 13$ OVE NOD AME_DESC, RO + 0280 : 
00G CF § D 12D MOVL RO, LCL_NODENAME : 83 as 
006 CF 0000' cf 138 MOVL NObE AME DESC+4, LCL_NODENAME +4 : ; 
00G CF 0 FB 00139 14$ CALLS #0, CLUSOTIL_INIT : 0290 ; M4 
00006 cf 9F 001 PUSHAB OPAO_ ENABLE MSG : 0296 ; mM 
00006 CF 1 FB 0014 CALLS #1, OPRENABCE_HANDLER ; Fa 
00006 CF 9F 0014 PUSHAB LOGFILE MSG : 0302 : mM 
00006 CF 1 ce 014 CALLS #1, LOGFILE_HANDLER : ; 
00006 ct 2 88 001 B1SB 2, GLOBAL_ STATUS + 0303 ; 
C 00006 ti E9 001 BLBC  GLOBAL_STATUS+1, 17$ + 0309 7 
E D4 0015A CLRL =(SP) 3 0312 : * 
00058233 8F DD 001 PUSHL #361011 : Aa 
00006 cf DD O16 PUSHL LCL _NOD : Ea 
00006 CF 3 FB 0016 CALLS #3, CLUSUTIL_NODE_MESSAGE : 7m 
0000G CF 98 4} O16 CALLS #0, CLUSUTIL— CONFIGURE 3 0313 : 
¢3 E9 001 BLBC =OsiR : Aa 
2 00006 CF 00 0017 MOVL § NOD_HEAD, NOD : 0318 | 
5 00006 cr 9€ 00178 15$:  MOVAB NOD"HEAD, RO + 0319 Aa 
50 2 D4 017D CMPL D> RO : 78 
14 13 00180 BEQL 3 : 
00006 CF 2¢ a2 D1 018¢ CMPL 44(NOD), LCL_CSID : 0322 7 
07 13 0018 BEQL 16$ ; Aa) 
52 DD 0018A PUSHL NOD + 0324 78 
00006 CF 01 FB 0018¢ CALLS #1, CLUSMSG_ACK_PLEASE : F 
52 62 DO 00191 16$:  MOVL (NOD), NOD : 0325 ; 
E 11 00194 BRB 5% : 0319 ; 
E 7C 00196 17$: CLRQ = = (SP) : 0337 ; 
7E 7C 0019 CLROQ = (SP) : ; 
7E FFOF i 3¢ 0019A MOVZWL #65295, -(SP) : ; 
E 7C 0019F CL -(SP) : ; 
7E D4 OO1A1 CLRL = = (SP) : : 
3¢ AE 9F OO1A3 PUSHAB 1088 F ; 
7E 02 BF 3C OO1A6 MOVZ2WL #547, -(SP) ; ; 
7E 00006 CF 3¢ 001 MOVZWL OPER MBX_CHAN, -(SP) ; : 
E 04 0018 CLRL = ; ; 
000000006 99 Q F 1B CALLS #12, SYS$QI0 ; ; 
DO 001B MOVL RO STATUS ; 7 
2 5 . 1BC BLBC STATUS, 18$ : Aa] 
0c Ar g 1BF MOVZWL 10SB, STATUS + 0344 | 7 4 
4 ics BLBC STATUS, 18$ ; ; 8 
00006 CF 40 BF 88 001C6 BISB #64, GLOBAL _STATUS : 0 53 Aa) 
00006 CF 0 8A 001CC BICB2 #32, GLOBAL~STATUS > 035 7 
£ p4 101 CLRL = = (SP) : 0354 : #4 
90006 CF OF 103 PUSHAB TIME_STAMP : 7M 
000G CF 9F 0010 PUSHAB WAIT DELTA : : M4 
4 DD 001DB PUSHL @ ; 7 
000000006 90 4 F 100 CALLS #4, SYSSSETIMR : ; 
9 9 DO O01E4 MOVL RO, STAT ; ; 
09 E 1€7 BLBS STATUS, 19$ ; 7 
9 DD OO1EA 18%:  PUSHL STATUS : 0356 ; 
000000006 00 1 FB OO1EC CALLS #1, LIBSSTOP F : 


ope SoPEOMINIT Heoseoct9Be 01:52:26 pared eLigsca2 v4 0-742 rage} 
04 OO1F3 198: RET 3; 0358 
; Routine Size: 500 bytes, Routine Base: S$CODE$ + 0000 
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ROUTINE KERNEL_SETUP = | 


'e4 
} Functional description: 


oO 
Wr—O 


This routine executes in kernel mode, and performs some 
additional setup necessary for the correct operation of OPCOM. 


| 
| 
Input: | 
None. | 
Implicit Input: | 
A channel has been assigned to _MBA2:. | 
Output: | 
None. | 
Implict output: 
If the _OPAO: exists, then the OPR bit in its UCB is set. 
Side effects: 
None. 
Routine value: 


OWONOUS WO 


SS$_NORMAL if gxery thing worked, 
SS$_DEVALLOC if _MBA2: has a reference count greater than 2. 
SSS-NOSUCHDEV Tf _OPAO: does not exist. 


BEGIN ! Start of KERNEL_SETUP | 
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99 EXTERNAL 
rts} SYSSGL_OPRMBX =: $bblock ADDRESSING_MODE (GENERAL); ! Address of MBA2 UCB 
40 
$o2 4 DEF _OPER_DEV : Sstring_desc (*_OPAO:');! Default operator device name 
608 : LOCAL 
4 STATUS : LONG; 
iS s 
409 09 i Check the reference count in the MBA2: UCB. If it is greater than 2, 

£10 OS it means that there is already a Tistener at the mailbox. 

tig 19 SYSSGL_OPRMBX CUCBSW_REFC] GTR 2 

414 \¢ RETURN (SS$_DEVALLOC); 

te 1 5 | 
<i? + ; Set the OPR bit in the default operator UCB. 


4 eo ll 


; 419 


17 2 RETURN (EXESSETOPR (DEF_OPER 
; 420 Bei8 ; END; es 


3A 30 41 50 4F 


0 


00000 


02 000000006 6° 
50 0840 aF 
01 
CF 
02 


0000" 
000000006 00 


; Routine Size: 31 bytes, Routine Base: SCODES + 0 
; 621 0419 1 

3; 4 § 0420 1 END 

; 4 0421 0 ELUDOM 

: PSECT SUMMARY 

3 Name Bytes 

> SOWNS 8 NOVEC, WRT, 
; SPLITS ¢ NOVEC.NOWRT, 
; SCODES 551 NOVEC,NOWRT, 
; Library Statistics 


F - 
16-Sep 4 AX-11 Bliss-32 V4 i°a6ee 
12:3 Sep 71382 9}: 36: $ OPCOM. SRCJOPCOMINI .832;1 
V,ON)); 
! End of KERNEL_SETUP 
-PSECT S$PLITS,NOWRT,NOEXE,2 
5F 00010 P.AAC: .ASCII \_OPAO:\ 
-PSECT SOWNS,NOEXE,2 
006 O003C DEF _OPER_DEV: 
WORD 
43 003 BYTE 14, 1 
000° 0004 ADDRESS P.AAC 
-EXTRN SYSSGL_OPRMBX, EXESSETOPR 
-PSECT SCODES,NOWRT,2 
0000 00000 KERNEL_SETUP: 
WORD Save not abe 
B1 0000 CMPW SYSSGL_OPRMBX+92, #2 
1B 0000 BLEQU 
3¢ 000 MOVZWL #2112, RO 
04 0001 RET 
DD 00011 1$ PUSHL #1 
9F 00013 PUSHAB DEF _OPER_DEV 
FB 00017 CALLS #2, EXESSETOPR 
04 OO01E RET 
1F4 
! End of OPCOMINIT 
Attributes 
RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
RD *NOEXE , NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Processing 
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8 er alia 


; File Total Loaded Percent Mapped Time 
: SDUA stl BAL 18.L32;1 186 5 100 :01.9 
; meiitit 58; Spe 06 JSOPCOALIB.L32:1 $33 82 : 8 $3:00:9 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:OPCOMINI/OBJ=OBJ$:OPCOMINI MSRC$:OPCOMINI/UPDATE=(ENH$:OPCOMINI) 
; Size: 531 code + 90 data bytes 
Run Time: 714.5 


; ‘Cee Ak ae 19379 
; Used: 183 pages 


; Time: :48. 
3 Lines/CPU Min: 1744 
; paoat Minny Complete 


row 
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